Option Explicit
Sub A_Sample010()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim mySht As Worksheet
    Set mySht = Worksheets(1)                           'N
    Set myRng1 = mySht.UsedRange                        'ϥxsd
    'ǳƨ즹
    Set myRng2 = myRng1.SpecialCells(xlCellTypeLastCell)
    MsgBox myRng2.Address
    Set myRng1 = Nothing                                '
    Set myRng2 = Nothing
    Set mySht = Nothing
End Sub
